home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / cargame.src < prev    next >
Text File  |  1992-08-18  |  6KB  |  141 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ CARGAME by Jonas Lindstedt
  3. DIR
  4.   BI
  5.     DIR
  6.       PPAR { (-6.5,-3.1) (6.5,3.2) X 0 (0,0) FUNCTION Y }
  7.       SPEL 153
  8.       HIGH 4
  9.       COOLAST "Jonas"
  10.       HIGH2 3
  11.       TV\197A "Jonas"
  12.       HIGH3 2
  13.       TREA "Jonas"
  14.       HIGH4 1
  15.       FYRA "Jonas"
  16.       SON1 { 493 740 493 493 698 493 493 740 493 493 698 493 493 740 493 493
  17.         440 622 440 440 587 440 440 622 440 440 587 440 440 622 440 440 }
  18.       TUT
  19.         \<< SON1 OBJ\-> DROP SON1 OBJ\-> DROP 1 MAXR
  20.           FOR I .02 WAIT .1 BEEP
  21.           NEXT
  22.         \>>
  23.       REK
  24.         \<< -1 'P' STO+
  25.           IF P HIGH4 >
  26.           THEN
  27. "GRATTIS TILL ATT HA
  28. F\197TT EN HAJSK\197R!
  29. SKRIV DITT NAMN!"
  30. "" INPUT 'NA' STO 'COOLAST' 'HIGH' HIGH 'PO' STO JAM
  31. 'TV\197A' 'HIGH2' HIGH2 'PO' STO JAM
  32. 'TREA' 'HIGH3' HIGH3 'PO' STO JAM
  33. 'FYRA' 'HIGH4' HIGH4 'PO' STO JAM
  34.           ELSE UPDIR
  35.           END
  36.         \>>
  37.       NA "Jonas"
  38.       PO 3
  39.       JAM
  40.         \<<
  41.           IF 'P>PO'
  42.           THEN P SWAP STO NA SWAP STO 'P' PURGE UPDIR CLEAR HIGH KILL
  43.           END
  44.         \>>
  45.     END
  46.   INTRO
  47.     \<<
  48. GROB 24 12 000F0000422000224008FFF00EFFF10FFFF18FFFF38FFFF3F7FFBFFBEF5F0220110C10E0
  49. GROB 42 19 0000000C1000000000022000CFF700077000400800022000C9BB810410000AAA420410000AAA420410000AAA7EF730000AB30000400002000000410009FFFFFF51000100000041000170700041000F8F8FFF700004050183F1000425216CA600040501925D10088880929F300070706C0000
  50. GROB 71 55 000000000000020000000000000000030000000000000000070000000000000000070000000000000000074000000000000E30876000000000000FF0873000000000008FC18B3000000000008FA18F3000000000004CC1CF10000000000048F1EF20000000000024F1EF30000000000814F0FF1000000000060BF8FF000000000002CCFEFF00000000030CFFFFF7000000000700FFFFF3000000000F1E7FFFF1000000000EFFBFFFFC4000000001EFFFFF7EB30000000FF100FF9F0C0000008DFFFFC7F140100000CCD3E7DC7000300000C37F97AF0010200000C842E1E10804400000EF930E30080070000032EFFF00000A2000088108F700040D20000640000600040D20008130008000008C30006C00004000048E3000120000200004CB3008010000100810493004800008000438493002400004000A2079100120000200027CF81080100001000F5EE91080100080000FFFEF104800008C100F3FDF00E8000043600F3EF700EB0000AF808F3CB7007E0000EF908C78F3003C0008F831887000007C308F30396A700000E77FF330392B700000CFDF3C7C941B7000000FF0CFF3EB187000000EFFF3FF1E6C3000000EBFFF00CDFF3000000CFF3000EDFF3000000C7FF000EFFF30000008FC7000CBFF10000000EF3000C7FF000000000000008F87000000000000000E70000000
  51. \-> BUG TRAIN BIRD
  52.       \<< BI ERASE { # 0h # 0h } PVIEW 0 110
  53.         FOR i PICT i R\->B # 0h 2 \->LIST BUG REPL 3
  54.         STEP PICT { # 14h # 2h } "HIGHWAYRACE" 1 \->GROB REPL 130 2
  55.         FOR i PICT i R\->B # Ch 2 \->LIST BIRD REPL -4
  56.         STEP
  57.         IFERR TUT
  58.         THEN
  59.         END
  60.         DO PICT { # 46h # 3Ah } "PRESS ENTER!" 1 \->GROB GXOR
  61.         UNTIL KEY 1 SAME
  62.         END UPDIR HIGH CAR
  63.       \>>
  64.     \>>
  65.   CAR
  66.     \<< 0 0 -15 0 # 0h # 0h # 18h
  67. GROB 131 2 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70
  68. GROB 131 1 EFBFFEFBFFEFBFFEFBFFEFBFFEFBFFEF30
  69. GROB 12 9 C910EF303A402290229022902A40EF30C910
  70. GROB 34 9 8930000000CF70000000254000000094400000009440000000944000000025C0000000CF700000008930000000
  71. \-> LIV p S X k z c L1 L2 CAR CAR2
  72.       \<< BI 1 'SPEL' STO+ ERASE { # 0h # 0h } PVIEW
  73. PICT { # 0h # 9h } L1 REPL
  74. PICT { # 0h # 16h } L2 REPL
  75. PICT { # 0h # 22h } L2 REPL
  76. PICT { # 0h # 2Eh } L1 REPL
  77. { # 63h # 0h } { # 63h # 9h } LINE
  78. { # 63h # 2Eh } { # 63h # 40h } LINE
  79. PICT z c 2 \->LIST CAR REPL
  80. PICT { # Ah # 32h } COOLAST 1 \->GROB REPL
  81. PICT { # Ah # 39h } HIGH 1 \->GROB REPL
  82. PICT { # 14h # 2h } "HIGHWAYRACE" 1 \->GROB REPL
  83. PICT { # 73h # 38h } SPEL 1 \->GROB REPL 1 MAXR
  84.         FOR p RAND 3 * .5 - 0 RND 12 * 12 + R\->B 'X' STO 120 0
  85.           FOR i 1 KEY DROP 'k' STO
  86.             IF k 35 SAME
  87.             THEN
  88.               PICT z c 2 \->LIST CAR GXOR
  89.               12 'c' STO+ PICT z c 2 \->LIST CAR REPL
  90.             END
  91.             IF k 25 SAME
  92.             THEN
  93.               PICT z c 2 \->LIST CAR GXOR
  94.               c 12 - 'c' STO PICT z c 2 \->LIST CAR REPL
  95.             END PICT i R\->B X 2 \->LIST CAR2 REPL
  96.             IF z B\->R 10 - i < z 10 + B\->R i \>= X c == AND AND
  97.               c B\->R 9 < OR c B\->R 46 > OR
  98.             THEN 200 .5 BEEP PICT i R\->B X 2 \->LIST CAR2 GXOR
  99. 120 'i' STO PICT z c 2 \->LIST CAR REPL
  100. LASTARG GXOR # 18h 'c' STO # 0h 'z' STO PICT z c 2 \->LIST CAR REPL
  101. 1 'LIV' STO+
  102.               IF LIV 3 ==
  103.               THEN PICT { # 28h # 39h } "GAME OVER" 1 \->GROB REPL
  104.                 2 WAIT p 'P' STO REK UPDIR KILL
  105.               END
  106.             END S
  107.           STEP 1 'p' STO+ PICT { # 2h # 2h } p 1 \->GROB REPL
  108. PICT { # 2h # 37h } 3 LIV - 1 \->GROB REPL
  109. PICT # 0h X 2 \->LIST CAR2 GXOR
  110. PICT z c 2 \->LIST CAR GXOR
  111. 10 'z' STO+ PICT z c 2 \->LIST CAR REPL
  112.           IF z B\->R 99 >
  113.           THEN PICT z c 2 \->LIST CAR GXOR # 0h 'z' STO -5 'S' STO+
  114.             IF S -25 ==
  115.             THEN 5 'S' STO+ p 10 + 'p' STO
  116.             END PICT z c 2 \->LIST CAR REPL
  117.           END
  118.         NEXT
  119.       \>>
  120.     \>>
  121.   HIGH
  122.     \<< BI ERASE { # 0h # 0h } PVIEW PICT "* HIGHSCORELIST *" 2 \->GROB
  123. DUP SIZE DROP 2 / 65 SWAP - # 3h 2 \->LIST SWAP REPL
  124. { # 0h # 0h } { # 82h # 3Fh } BOX
  125. { # 0h # Ch } { # 82h # Ch } LINE
  126. { # 0h # 3Dh } { # 82h # 3Dh } LINE
  127. { # 0h # 3Bh } { # 82h # 3Bh } LINE
  128. PICT COOLAST ".." HIGH + + 2 \->GROB
  129. DUP SIZE DROP 2 / 65 SWAP - # Fh 2 \->LIST SWAP REPL
  130. PICT TV\197A ".." HIGH2 + + 2 \->GROB
  131. DUP SIZE DROP 2 / 65 SWAP - # 19h 2 \->LIST SWAP REPL
  132. PICT TREA ".." HIGH3 + + 2 \->GROB
  133. DUP SIZE DROP 2 / 65 SWAP - # 23h 2 \->LIST SWAP REPL
  134. PICT FYRA ".." HIGH4 + + 2 \->GROB
  135. DUP SIZE DROP 2 / 65 SWAP - # 2Dh 2 \->LIST SWAP REPL CLEAR UPDIR
  136.       DO
  137.       UNTIL KEY 1 ==
  138.       END
  139.     \>>
  140. END
  141.